home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aba.d64 / oki.120.3col.nlq (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  79 lines
  1. 1 PRINT"[147]"
  2. 100 REM  ***************************
  3. 200 REM  *      PUBLIC DOMAIN      *
  4. 300 REM  *    BY MARK BIM-MERLE    *
  5. 400 REM  *        10/18/87         *
  6. 450 REM  *  MOD. BY PARKE BLOYER   *
  7. 480 REM  *      ON: 06/22/88       *
  8. 500 REM  *     FILE SELECTABLE     *
  9. 600 REM  *  NLQ-TINY-DIR.-PRINTER  *
  10. 700 REM  * SET UP WITH OKIDATA 120 *
  11. 800 REM  ***************************
  12. 850 REM
  13. 880 REM
  14. 900 SC=53280:POKE SC,0:POKE SC+1,0
  15. 1000 P1$=""
  16. 1100 P2$="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  17. 1200 DIMD$(144)
  18. 1250 CS=7:GOSUB 6000
  19. 1350 GOTO3900
  20. 1400 FORR=0TOI:D$(R)="":NEXTR:I=0:A$="":B$="":C$="":CLOSE 1:OPEN 1,8,0,"$0"
  21. 1450 PRINT"[147]"
  22. 1500 GET#1,A$,A$
  23. 1600 GET#1,A$,A$:IFA$=""THENCLOSE1:GOTO2400
  24. 1700 GET#1,A$,B$
  25. 1800 C$=MID$(STR$(ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256),2)+CHR$(34)+CHR$(32)
  26. 1900 GET#1,A$:IFA$=""THEN2050
  27. 2000 D$(I)=D$(I)+A$:GOTO1900
  28. 2050 BF$=(RIGHT$(D$(I),5)):BF=ASC(BF$)
  29. 2060 IFBF=32 AND I>0 THEN GOTO 2320
  30. 2100 D$(I)=C$+D$(I):D$(I)=LEFT$(D$(I),24):D$(I)=RIGHT$(D$(I),18)
  31. 2200 IFI=0THENI=1:GOTO1600
  32. 2305 PRINT"";D$(I);"  [152]PRINT? (Y/N)";
  33. 2310 GETAA$:IFAA$="N"THENPRINT"   NO":GOTO2320
  34. 2315 IFAA$<>"Y"THEN 2310
  35. 2318 PRINT"  YES":I=I+1:GOTO 1600
  36. 2320 D$(I)="":GOTO1600
  37. 2400 PRINT"":PRINTP1$;"[213]";P2$;"[201]":PRINTP1$;"[194] BE SURE PRINTER IS SET UP [194]"
  38. 2500 PRINTP1$;"[194]    PRESS [158]'P' TO PRINT     [194]":PRINTP1$;"[202]";P2$;"[203]"
  39. 2600 GETA$:IFA$<>"P"THEN2600
  40. 2800 OPEN3,4,CS
  41. 2900 PRINT#3,CHR$(27);"8";CHR$(29);
  42. 2950 PRINT#3,T$(0);
  43. 3000 FORR=1TOISTEP3
  44. 3100 PRINT#3,;D$(R);" ";D$(R+1);" ";D$(R+2)
  45. 3200 NEXTR
  46. 3300 CLOSE3
  47. 3400 PRINT"[145][145][145]";P1$;"[194]          ANOTHER?        "
  48. 3500 PRINTP1$;"[194]          Y  /[129]  N          "
  49. 3600 GETQ$:IFQ$=""THEN3600
  50. 3700 IFQ$="Y"THENPRINT"[147]":GOTO1250
  51. 3800 PRINT"[147][158]                  THANX![144]":PRINT"":GOTO4500
  52. 3900 PRINT"[147]              PLEASE SELECT"
  53. 3901 PRINT"               SIDE A OR B"
  54. 3902 GETA$:IFA$<"A"ORA$>"B"THEN3902
  55. 3903 IF CS=0THEN GOSUB7000
  56. 3904 IF CS=7THEN GOSUB8000
  57. 3950 PRINT"[147]";P1$;"[213]";P2$;"[201]"
  58. 4000 PRINTP1$;"[194] INSERT DISK TO BE LABELED [194]"
  59. 4100 PRINTP1$;"[194]  HIT ANY KEY TO CONTINUE  [194]"
  60. 4200 PRINTP1$;"[202]";P2$;"[203]"
  61. 4300 GETA$:IFA$=""THEN4300
  62. 4400 GOTO1400
  63. 4500 END
  64. 6000 PRINT"[147][159]              PLEASE SELECT"
  65. 6050 PRINT"[158]           U[158]PPERCASE ONLY  (U)"
  66. 6055 PRINT"[158]           LOWER [153]&[158] UPPER   [153](B)"
  67. 6060 GETA$:IFA$=""THEN 6060
  68. 6070 IFA$="U"THEN CS=0
  69. 6999 RETURN
  70. 7000 REM
  71. 7903 IFA$="A"THENT$(0)="                       SIDE A"+CHR$(13)
  72. 7904 IFA$="B"THENT$(0)="                       SIDE B"+CHR$(13)
  73. 7999 RETURN
  74. 8000 REM
  75. 8903 IFA$="A"THENT$(0)="                       [211][201][196][197][160][193]"+CHR$(13)
  76. 8904 IFA$="B"THENT$(0)="                       [211][201][196][197][160][194]"+CHR$(13)
  77. 8999 RETURN
  78. 9000 END
  79.